home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / database / sr_info.exe / EDBROW.PRG < prev    next >
Text File  |  1990-05-29  |  2KB  |  95 lines
  1. *** EDBROW.PRG **
  2. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  3. **  A demonstration program provided to SR-Info and VP-Info users.
  4. **  This program may be copied freely. If it is used in commercial code,
  5. **  please credit the source, Sub Rosa Publishing Inc.
  6. **
  7. **  EDBROW is compatible with all current versions of SR-Info and VP-Info.
  8. **  EDBROW demonstrates the use of the EDIT and BROWSE commands in tandom to
  9. **  work on a file. The consistancy of keystrokes across the two commands
  10. **  makes this a very good appoach to data management.
  11. **
  12. **  Bernie Melman
  13. **  April, 1990
  14. **
  15. *
  16. SET func off ; we want the raw function keys - not the pre-loaded messages.
  17. USE#1 members index members
  18.  
  19. IF :color <> 7
  20.    SET color to 32; black on green
  21. ENDIF
  22. COLOR :color,0,0,24,79,177; fill screen with pattern
  23. * 177 is a shaded fill character.
  24. DO WHILE t; put main menu in an infinite loop
  25.    WINDOW 6,18,19,62 double; declare space for menu text
  26.    MODE = '?'
  27.    ERASE; fills window with blanks
  28.    TEXT
  29.  
  30.           DEMO MAIN MENU
  31.  
  32.      0. Exit program and SR-Info.
  33.  
  34.      1. Choose a starting record.
  35.      2. Browse current record.
  36.      3. Edit current record.
  37.      4. Exit program - stay in SR-Info.
  38.  
  39.    ENDTEXT
  40.    CURSOR 12,26 ; positions menu cursor over 1st character of 1st choice
  41.    SELECTION = menu(4,36); five choices menu bar width 36
  42.    DO CASE
  43.    CASE selection=0
  44.       QUIT
  45.    CASE selection=1
  46.       PERFORM start_rec
  47.    CASE selection=2
  48.       mode='B'
  49.    CASE selection=3
  50.       mode='E'
  51.    CASE selection=4
  52.       WINDOW; reset window to full screen
  53.       CLS; clears screen
  54.       CURSOR 0,0; cursor to top left
  55.       CANCEL
  56.    ENDCASE
  57.    WINDOW 2,20
  58.    @ 22,5 say "PRESS F1 to toggle between BROWSE and EDIT"
  59.    DO WHILE mode <> 'Q'
  60.       IF mode='E'
  61.          EDIT
  62.          IF :key=315
  63.             MODE = 'B'
  64.          ELSE 
  65.             mode='Q'
  66.          ENDIF
  67.       ELSE
  68.          BROWSE
  69.          IF :key=315
  70.             MODE = 'E'
  71.          ELSE 
  72.             mode='Q'
  73.          ENDIF
  74.       ENDIF
  75.    ENDDO
  76. ENDDO
  77. **** END OF EDBROW.PRG ***
  78. PROCEDURE start_rec
  79.    CLEAR gets
  80.    mkey=blank(10)
  81.    ERASE
  82.    TEXT
  83. ENTER ESTIMATE OF LAST NAME -
  84.   up to 10 characters
  85.  LAST NAME: @mkey
  86.    ENDTEXT
  87.    READ
  88.    MKEY = !(trim(mkey)) ; get rid of trailing blanks
  89.    FIND &mkey
  90.    IF #=0 ; no find - so go to next record
  91.       GOTO :near
  92.    ENDIF
  93. ENDPROCEDURE; start_rec
  94. ** end of EDBROW.PRG **
  95.